home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / tool7v13 / demofil.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-25  |  642 b   |  21 lines
  1. Program DemoFiles;
  2.  
  3. { Purpose....... Demonstrates the use of the following units: Files
  4.   Comments...... None
  5.   Author........ Thayne Breetzke
  6.   Date.......... 5 April 1994                                                }
  7.  
  8. Uses
  9.   Files;
  10.  
  11. Begin
  12.   If Exists('Sample.txt') then
  13.     Writeln('Sample.txt exists in the current directory')
  14.   else
  15.     Writeln('Can''t find Sample.txt in the current directory');
  16.   Writeln('FileMatch(''DEMOFIL.EXE'',''*.EXE'') = ',FileMatch('DEMOFIL.EXE','*.EXE'));
  17.   Writeln('IsDirectory(''DEMOFIL.EXE'') = ',IsDirectory('DEMOFIL.EXE'));
  18.   Writeln('IsDirectory(''.'') = ',IsDirectory('.'))
  19. end.
  20.  
  21.